COMMENT ⊗   VALID 00006 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	. DEVICE XGP
C00005 00003	.<< Digest number of sides per page and columns per side. >>
C00006 00004	.<< Set line spacing to new value. >>
C00007 00005	.<< Start text justification. >>
C00008 00006	.<< Set up for body of text. >>
C00012 ENDMK
C⊗;
. DEVICE XGP;
.
.
. SIDES ← 1;
.
. FONT 1 "SAIL25";  << Delegate  >>
. FONT 2 "COR20";  <<  Courier  >>
.FONT 6 "DIAC.FNT[FNT,GHB]";
.FONT 7 "MTEXT.FNT[FNT,GHB]";
.
.
. SELECT 1;
.
.
.<< a sharp, flat, and alla breve time signature.  >>
.
. AT "##" ⊂ "%7α#%*"; ⊃;
. AT "#b" ⊂ "%7αb%*"; ⊃;
. AT "#C" ⊂ "%7αC%*"; ⊃;
.
.<< make up diacriticals >>
.
.AT ":a" ⊂ "%6α:%*a" ⊃;
.AT ":o" ⊂ "%6α:%*o" ⊃;
.AT ":u" ⊂ "%6α:%*u" ⊃;
.AT "'a" ⊂ "%6α'%*a" ⊃;
.AT "'e" ⊂ "%6α'%*e" ⊃;
.AT "'o" ⊂ "%6α'%*o" ⊃;
.AT "'u" ⊂ "%6α'%*u" ⊃;
.AT "'U" ⊂ "%6α'%*U" ⊃;
.AT "`a" ⊂ "%6α`%*a" ⊃;
.AT "`e" ⊂ "%6α`%*e" ⊃;
.AT "`o" ⊂ "%6α`%*o" ⊃;
.AT "`u" ⊂ "%6α`%*u" ⊃;
.AT "''" ⊂ "α'" ⊃;
.AT "∧a" ⊂ "%6α∧%*a" ⊃;
.AT "∧e" ⊂ "%6α∧%*e" ⊃;
.AT "∧i" ⊂ "%6α∧%*i" ⊃;
.AT "∧o" ⊂ "%6α∧%*o" ⊃;
.AT "∧u" ⊂ "%6α∧%*u" ⊃;
.AT ",c" ⊂ "%6α,%*c" ⊃;
.AT ",C" ⊂ "%6α,%*C" ⊃;
.AT ":O" ⊂ "%6α:%*O" ⊃;
.AT ":e" ⊂ "%6α:%*e" ⊃;
.AT ":y" ⊂ "%6α:%*y" ⊃;
.AT ":U" ⊂ "%6α:%*U" ⊃;
.AT "'E" ⊂ "%6α'%*E" ⊃;
.AT "'i" ⊂ "%6α'%*i" ⊃;
.AT "''" ⊂ "α'" ⊃;
.AT "'\" ⊂ "α/" ⊃;
.AT "∨r" ⊂ "%6α∨%*r" ⊃;
.AT "∨s" ⊂ "%6α∨%*s" ⊃;
.AT "∨z" ⊂ "%6α∨%*z" ⊃;
.AT "[ALPH]" ⊂ "αα%*" ⊃;
.AT "[ARROW]" ⊂ "α↓%*" ⊃;
.AT "[DOT]" ⊂ "α.%*" ⊃;
.AT "[INF]" ⊂ "α∞%*" ⊃;
.
.
.<< Turn on quote character ("α"), underline characters ("↓_"), and font switching
.character ("%") just for compatibility with XGP. >>
.
.TURN ON "α↓_%";
.
.<< Print //underlined/ or ⊗⊗in all capital letters⊗. >>
.
.AT "//" ENTRY "/" ⊂ "↓_ENTRY_↓" ⊃;
.
.
.
.AT "⊗⊗" ENTRY "⊗" ⊂ (↑ "ENTRY"); ⊃;  
.
.
.<< Print page headings on LPT (using all capitals) before new page started. >>
.
.
.RECURSIVE MACRO STANDARD TITLES
.	⊂
.	NOFILL;
.	TURN ON "←→{";
.	PREFACE 0;
.	INDENT 0,0,0;
.	PLACE HEADING;
⊗⊗{!EH}⊗
.	⊃;
.
.<< Digest number of sides per page and columns per side. >>
.
.
.<< Set up page frame and COLMNS macro for selected device. >>
.
.TITLE AREA HEADING LINES 1 TO 3;
.
.PAGE FRAME 64 HIGH 82 WIDE;
.ODDLEFTBORDER ← EVENLEFTBORDER ← 900;
.MACRO COLMNS(NUMCOLS)
.	⊂
.	IF NUMCOLS = 1
.		THEN AREA TEXT LINES 4 TO 64
.		ELSE IF NUMCOLS = 2
.			THEN AREA TEXT LINES 4 TO 64 IN 2 COLUMNS 5 APART
.		ELSE USERERR("COLMNS argument not 1 or 2");
.	COLS ← NUMCOLS;
.	SSNAME ← NULL;
.	PLACE TEXT;
.	NEXT PAGE;
.	⊃;
.
.
.<< Set line spacing to new value. >>
.
.MACRO SPACES(NUMSPACES)
.	⊂
.	IF NUMSPACES > 0
.		THEN
.			START "SET NEW INTER- AND INTRA-PARAGRAPH SPACING"
.			BREAK;
.			PREFACE NUMSPACES;
.			SPREAD ← NUMSPACES;
.			END "SET NEW INTER- AND INTRA-PARAGRAPH SPACING"
.		ELSE USERERR("SPACES argument not positive integer");
.	⊃;
.<< Start text justification. >>
.
.MACRO JUSTIFY
.	⊂
.	FILL;
.	ADJUST;
.	RETAIN;
.	⊃;
.<< Set up for body of text. >>
.
. COLMNS 1;
.PORTION MAIN;
.
. EVERY HEADING({SECNAME},,{PAGE!});
.SECNAME ← SSNAME ← NULL;
.PLACE HEADING;
.
.PLACE TEXT;
.SELECT 1;
.JUSTIFY;
. NOJUST;
.INDENT 0,0,0;
.SPACES 2;
.COUNT PAGE FROM 1 TO 999;
.